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spacewar 4.0ts 5/V^3 <i<ip 'pt 1 



3/ 



jmp stof / ignore seq. break 

Jmp a4o 

jmp al / use test word for control, not lot 11 co 



/ interesting and often changed constants 

/symb loc usual value (all instructions are executed, 
/ and may be replaced by jda or jsp) 



tno 


. 6, 


tVlj 


7, 


Tit: 


. 10, 


tlf. 


, 11, 


foo. 


, 12, 


maa. 


, 13, 


sac. 


, 14, 


str. 


. 15, 


mel. 


, 16, 


me2 


, 17, 


ddd" 


, 20, 


the J 


. 21, 


mhs. 


* 22, 


hdl' 


, 23, 


hd2 


. 24, 


hd3; 


. 25, 


hrlj 


. 26, 


hr2j 


- 27, 


hurj 


. 30, 


ranj 


, 31, 


grv. 


, 32, 



law i 41 

sar 4s 

law i 20 

law i l4o 

-20000 

10 

sar 4s 

100 

6000 

3000 

-0 

sar 9s 

law i 10 

law i 40 

law i 100 

law i '200 

scl 9s 

scl 4s 

40000 



sar 6s 



/ number of torps + 1 
/ torpedo velocity 
/ torpedo reload time 

/ torpedo life 
/ fuel supply 

/ spaceship angular acceleration 
/ spaceship acceleration 
/ star capture radius 
/ collision "radius" 
/ above/2 

/ to save space for ddt 
/ amount of torpedo space warpage 
/ number of hyper space shots 
/ time in hyperspace before breakout 

/ time in hyperspace breakout 

/ time to recharge hyperfield generators 
/ scale on hyper spatial displacement 
/ scale on hyper spatially induced velocity 
/ hyper spatial uncertancy 
/ random number 
/ gravitational constant 



/ place to build a private control word routine* 

/ it should leave the control word In the io as follows, 

/ high order 4 bits, rotate ccw, rotate cw, (both mean hyperspace) 

/ fire rocket, and fire torpedo. Low order 4 bits, same for 

/ other ship. Routine is entered by Jsp cwg. 



40/ 



cwr, 
. 20/ 



Jmp mgl 
/ space 



/ normally lot 11 control 



ioh=xct (nop 



/delay for dpy » s 



/ routine to flush sequence breakes, if they occur. 

sbf, tyi 

lio 2 
lac 
ism 
jmp i 1 

define 
xincr X,Y,INS 

lac Y 
INS s'sn 
dac Y 
lac X 
INS sen 
dac X 
term 

define 
yincr X,Y,INS 

lac Y 

INS sen 

dac Y 

lac X _ 

~INS+add+sub ssn 

dac X 

terminate 

define 
dispatch 

add (. 3 
dap . 1 
Jmp . 
term 

define 
dispt A,Y,B 

repeat 6 B=B+B 
lio Y 
dpy-A+B 
term 

define 
scale A,B,C 

lac A 
sar B 
dac C 
term 



define 

diff V,S,SF 

add 1 V 
dac i V 
xct SF 
add i S 
dac i S 
term 



define 
random 

lac ran 
rar Is 
xor (355670 
add (355670 
dac ran 
term 

define 

ranct S,SS,C 

random 

S 

SS 
sma 
craa 
dac C 

terminate 



^^ 



iAy - i 



define 



v2. 



define 



define 



varsft 
dzm xys 
dac tl 
idx xys 
idx xys 
lac tl 
scr 2s 
dac tl 
sza 

jmp v2-i^ 
scr 2s 
swap 
terminate 

undosft 
dac tl 
dio t2 
lac xys 
add sft 
dap ,+1 
lac . 
dac .+6 
dac .+6 
xor £10000 
dac xyt 
lac tl 
dio t2 
scr . 
scr . 
terminate 

integrate A,B 

cli 

lac i A 

scr 9s 

scr Is 

div tl 

hit 

cma-hcli-opr 

xct xyt 

xct grv 

dac B 

terminate 



/ change scr to scl or scl to scr. 



sft. 



lac . ~1 
scr 7s 
scr 6s 
scr 5s 
scr 4s 
scr 3s 
scr 2s 
scr Is 
scr 
scl Is 



-^puJ ^ s" 



/sine-cosine subroutine •Adams associates 

/calling sequence^ number in AC, Jda sin or jdacos, 

/argument is between +2 pi, with binary point to right of bit 3. 

/answer has binary poTnt to right of bit 0. Time = 2.35-? ms. 

/changed for auto-multiply , ddp I/I9/63 



cos. 









dap 


CSX 




lac 


(62210 




add 


COS 




dac 


sin 




jmp 


.+4 


sin. 









dap 


CSX 




lac 


sin 




spa 




sil. 


add 


(311040 
(62210 




sub 




sma 






jmp 


si2 




add 


(62210 


si3j 


ral 


2s 




mul 


(242763 




dac 


sin 




mul 


sin 




dac 


cos 




mul 


(756103 
(121312 




add 




mul 


cos 




add 


(532511 




mul 


cos 




add 


(144417 




mul 


sin 




scl 


3s 




dac 


cos 




xor 


sin 




sma 






jmp 


csx-1 




lac 


(377777 




lio 


sin 




spi 






cma 






jmp 


CSX 




lac 


cos 


CSX, 


jmp 


• 


si2. 


cma 






add 


(62210 




sma 






jmp 


si3 




add 


(62210 




spa 






jmp 


.+3 




sub 


(62210 




jmp 


si3 




sub 


(62210 




jmp 


sil 



5;>^ 
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/integer square root 

/input in ac, binary point to right of bit 17, jda sqt 
/answer in ac with binary point between bits 8 and 9 
/largest input number = 177777 



sqt. 









dap 


sqx 




law 


i 23 




dac 


sql 




dzm sq2 




lio 


sqt 




dzm sqt 


sq3. 


isp 


sql 




Jmp 


• +3 




lac 


sq2 


sqx. 


Jmp 


• 




lac 


sq2 




sal 


is 




dac 


sq2 




lac 


sqt 




rcl 


2s 




sza 


i 




jmp 


sq3 




dac 


sqt 




lac 


sq2 




sal 


is 




add 


(1 




sub 


sqt 




sma+sza-skp 




jmp 


sq3 




spa 






cma 






dac 


sqt 




idx 


sq2 




jmp 


sq3 


sql. 







sq2. 








3/*'**^ 



/outline compiler 

/ac=where to compile to, call jda oc 

/ot=adciress of outline table 



define 



pi ins t A 
lac A 
dac i oc 
idx oc 
terminate 



define 



ocs. 



ocz, 
oc. 



ock. 



ocj, 
ocg, 
och. 



oco, 
ocq, 
ocp, 
ocr. 



comtab A, B 
pi ins t A 
jsp ocs 
lac B 
jmp oce 
terminate 

dap ocz 

dio i oc 

idx oc 

dio i oc 

idx oc 

Jmp . 



dap OCX 

lac i OCX 

dap ocg 

plinst (stf 5 

dap ocm 

idx OCX __ 

plinst (lac sxl 

plinst (lio syl 

elf 6 _ 

setup occ,6 

lio . 

cla 

rcl 3s 
dio oci 
lio (rcl 9s 
dispatch 
opr 

jmp ocl 
jmp oc2 
jmp oc3 
jmp oc4 
jmp oc5 
jmp oc6 



/puts in swap 



/outline compiler proper 



/outline table 



^/^5-^ 





plinst 


(szf 5 /7 cc 




add (4 






dap ocn 




plinst 


ocn _ 




plinst 


(dac s_xl 
(dio syl 




plinst 




plinst 


(jmp sq6 




plinst 


(elf 5 




plinst 


(lac scm 




plinst 


fcma _ 




plinst 


(dac £cm 




plinst 


(lac ssm 




plinst 


?cma __ 




plinst 


(dac _ssm 




plinst 


flac csm 




plinst 


flio _ssd 




plinst 


(dac s^sd 




plinst 


(dio csm 




plinst 


(lac ¥sc 




plinst 


(lio £sn 




plinst 


fdac _csn 




plinst 


(dio ssc 




plinst 


ocra 


OCX, 


jmp . 




ocm. 


Jmp . 




ocn. 


jmp • 




ocl. 


plinst 


(add s"sn 




Jsp ocs _ 
lac (sub sen 


oce. 


dac i oc 




idx oc 






jsp ocs 






plinst 


(ioh 




lac (dpy-4000 


ocd. 


dac i oc 




idx oc 






lio ocl_ 






count occ, och 




idx ocg 






jmp ocj 




oc2. 


comtab 


(add scm, (add ssm 
(add ssc, fsub £sm 


oc3. 


comtab 


oc4. 


comtab 


(sub s_cm, (sub s_sm 
(add csn, (sub ssd 


oc5. 


comtab 


OCD, 


szf 6 





oc9. 



Jmp oc9 

stf 6 _ 

plinst (dac ssa 

lac (dio ssi 

jmp ocd 

elf 6 

plinst (lac ssa 

lac (lio ssi 

jmp ocd 



/display a star 



sf' 



tjW 



define 



blp. 



blx, 

bpt. 



bds. 



star£ 
add "bx 
swap_ 
add by 
swap 
ioh 

dpy-4000 
terminate 

dap blx /star 

szs 60 

jmp blx 

random 

rar 9 s 

and (add 3^0 

spa 

xor 1377777 

dac bx 

lac ran 

ral 4s 

and (add 3^0 

spa 

xor 1377777 

dac by 

Jsp bpt 

ioh 

jmp . 

dap bpx 

random 

sar 9 s 

sar 5s 

spa 

cma 

sal 3s 

add (bds 

dap bjm 

cla cli elf 6~opr-opr 

dpy-4000 

jmp . 

repeat 20, starp 

szf 6 

jmp . 

stf 6 

cma 

swap 

cma 

swap 

jmp bjm 
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/background display • 3/13/62, prs. 

define 

dislis J, Q, B 

repeat 6, B=B+B 

elf 5 

lac flo4R 

dap fpo-tR 
fs, dap fin+R 

dap fyn4R 

idx fyn+R 

fin, lac /lac X 

sub fpr /right margin 

sma 

jmp fgr-m 

add {2000 
frr, spq 
fou, jmp fuu+R 
fie, sub (1000 

sal 8s 
fyn, lio /lio Y 

dpy-1-ffi 

stf 5 
fid, idx fyn4a 

sad (lio Q+2 

jmp flp-fR 

sad fpo+R 

jmp fx-m 

dap fin+R 

idx fyn-m 

jmp fin+R 

fgr, add (-20000+2000 
jmp frr-m 

fuu, szf 5 

fx, jmp flo+R+1 /return 

idx flo-HR 

idx flo+R 

sas (Q+2 

jmp fid+R 

law J 

dac flo+R 

jmp f id-m 

flp, lac (lio J 

sad fpo+R 

jmp fx-fB 

dap fin+R 

law J+1 

dap fyn+R 

Jmp fin+R 

fpo, lio 
flo, J 

terminate 



define 



background 

jsp "bck 
termin 

bck, dap bcx 
szs 40 
jmp bcx 
isp bcc 

bcx, jmp 



law i 2 
dac bcc 

dislis lj>lq,3 
dislls 2J,2q,2 

dislis 3j,3q,l 

isp bkc 

Jmp bcx 

law i 20 

dac bkc 

law i i 

add fpr 

spa 

add (20000 

dac fpr 

jmp bcx 



bcc, 
bkc, 
fpr, 10000 



^/^UJ'\ ^ 



mul=mus 
div=dls 



start 
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spacewar 4,0ts 5/V63 ddp ^pt 2 
/main control routine for spaceships 



nob=30 

mlO^ load mtc, -4000 

in it mll^ mtti 

add ( nob 

dap mxl 
nxl=mtb nob 

add (nob 

dap rnyl 
nyi=nxi nob 

add (nob 

dap mal 
nal=nyl nob 

add (nob 

dap mbl 
nbl=nal nob 

add j[nob 

dac mdx 
ndx=nbl nob 

add ^nob 

dac mdy 
ndy=ndx nob 

add (nob 

dap mom 
nom=ndy nob 

add (2 

dap rath 
nth=nom 2 

add {2. 

dac mfu 
nfu=nth 2 

add X.2 

dac mtr 
ntr=nfu 2 

add (2 

dap mot 
not=ntr 2 

add (2 

dap mco 
nco=not 2 

add {2. 

dac mhi 
nhi=nco 2 

add [2. 

dac mh2 

nh2=nhi 2 

add (2 

dac mh3 
nh3=nh2 2 

add (2. 

dac mh4 

nh4=nh3 2 
nnn=nh4 2 

law ssi 

xor mtb 
sza 

Jmp mdn 
law ss2 
xor mtb 1 



/total number of colliding objects 

/delay for loop 

/loc of calc routines 

/ X 

/y 



/ count for length of explosion or torp 

/ count of instructions taken by calc routine 

/ dx 

/ dy 

/angular velocity 

/ angle 

/fuel 

/ no torps remaining 

/ outline of spaceship 

/ old control word 



•^f^uy-j 4^ 



sza 

iaw 1 / test if l^oth ships out of torps 
aaa ntr 
spa 

Jmp mdi 
law 1 
add ntr 1 
spa i 
jmp mdn 
mdl, xct tlf / restart delay is 2X torpedo life 
sal Is 
dac ntd 
jmp rail 

mdn, count ntd, mil 
stf 1 
stf 2 
law ssl 
xor mtb 
sza 
elf 1 
sza _i 
idx Isc 
law ss2 
xor mtb i 
sza 
elf 2 
sza i 
idx ^se 
elf 2 
Jmp a 



^^ t*/ - ^ i 



alj law mg2 / test word control 

dac cwg 
jmp a 

a4o, law cwr / here from start at 4 
dac cwg 
jmp a6 

a, lac get 

sma 

jmp a5___ 

count_ get, a5 

lac Isc 

sas 2sc 

jmp a4 

law i_ 1 

dac get 
a5, lat 

and (40 

sza 1 

jmp a2 
a4, lac Isc 

lio ^sc 

hit 

lat 

and (40 

sza 

jmp a2 

dzm isc 

dzm 2s e 
a6, lat 

rar 6 s 

and (37 

sza 

cma __ 

dac get 
a2, clear mtb, nnn-1 / clear out all tables 

law ssi 

dac mtb 

law ss2 

dae mtb 1 

lac (200000 

dac nxi 

dac nyl 

cma 

dac nxl 1 

dac nyl 1 

lac (144420 

dac nth 



otl 

a.3, dac not 1 

jda oc 
ot2 

xct tno 
dac ntr 
dac ntr 1 
lac foo 
dac nfu 
dac nfu+1 
law 2000 
dac nbl 
dac nbl 1 
xct mhs 
dac nJri2 
dac nh2 1 
jmp mlO 



law nnn / start of outline program 

lio ddd 

spi i 

jmp a3 

jda oc / compile outline 



/ control word get routines 



^/ 



- }7 



mgl, 

mg4, 
mil. 



mot, 
ml2. 



mxl, 
mx2. 



myl, 
my 2, 



dap mg3 
cli 

lot 11 
rir 4s 
jmp . 

dap rag4 
lat 
swap 
jmp . 

lac . 

sza 1 
Jmp mql 
swap_ 
Idx moc 
spl 

jmp mq4 
law 1 
add mil 
dap ml2 
law 1 
add raxl 
dap mx2 
law 1 
add myl 
dap my2 
law 1 
add mal 
dap ma2 
law 1 
add mbl 
dap mb2 
lac . 
dap sp5 
lac • 
spq 

jmp mq2 
lac . 
sub . 
spa 
cma ___ 
dac mtl 
sub mel 
sma 

jmp mq2 
lac . 
sub • 
spa 
cma 

sub mel 
sma 

jmp mq2 
add mtl 
sub me2 
sma 

jmp mq2 

lac (mex 400000 
dac i mil 
dac i ml2 
lac i mbl 



/ 1st control word 
/ zero if not active 
/ not active 



/ 2nd control word 
/ can it collide? 
/ no 

/ calc if collision 
/ delta X 
/ take abs val 



/ < EPSILON ? 
/ no 

/ < epsilon ? 
/ no 



/yes, EXPLODE 

/ replace calc routine with explosion 

/ duration of explosion 



>/?^^ -I S 



mb2, add . 
cma 

sar 8s 

add (1 
mal, dac • 
raa2, dac • 

xnq2, idx mx2 / end of comparison loop 

idx niy2 
idx ma2 
idx mb2 
index ml2, (lac mtt» nob, ml2 



%^c^ - / ^ 



mq4, 
mbl, 
mql. 



mq3. 



lac i mil 
dap . 1 
Jsp . 
lac ^ 
add mtc 
dac mtc 
Idx mxl 
idx myl 
Idx mal 
idx mbl 
Idx mdx 
idx mdy 
idx mom 
idx mth 
idx mfu 
idx mtr 
idx mot 
idx mco 
idx mhl 
idx n^2 
idx n^3 
idx mh4 
index mil, 
lac i mil 
sza i 
Jmp mq3 
dap . 1 
Jsp • 
lac 1 mbl 
add rate 
dac mtc 
background 
jsp bl£ 
count mtc, 
jmp mlO 



/ routine for calculating spaceship 
/ or other object and displaying it 

/ alter count of number of instructions 
/ end of comparison and display loop 



(lac mtb nob-i, mil 

/ display and compute last point 
/ if active 



/ display stars of the heavens 
/ display massive star 
/ use up rest of time of main loop 
/ repeat whole works 



^r^ 



— -3-0 



/ misc calculation routines 
/ explosion 



mex. 



msl, 
mzl. 



msh, 
mil. 



mxr 



dap mxr 

lac i mdx 

sar 3s 

add i mxl 

dac i mxl 

lac i mdy 

sar 3s 

add i myl 

dac i myl 

law mst 

dap msh 

lac 1 mbl 

cma cll-opr 

sar 3s 

dac mxc 

sub {l4o 

sma 

idx msh 

random 

and (777 

ior (scl 

dac mil 

random 

scr 9s 

sir 9s 

xct . 

hit 

add i myl 

swap 

add i mxl 

dpy-i 300 

count mxc, mzl 

count i mal, mxr 

dzm i mil 

Jtnp . 



/ time involved 



scr Is 
scr 3s 



mst, 

/ torpedo calc routine 



tcr. 



tcl. 



dap trc 

count i mal, tcl 

lac (mex 400000 

dac i mil 

law i 2 

dac i mal 

jmp trc 

lac i mxl 
sar 9s 
xct the 
add i mdy 
dac i mdy 



trc. 



sar 3s 



add 


1 


myl 


dac 


1 


myl 


sar 


9s 


xct 


the 


add 


i 


rodx 


dac 


i 


mdx 


sar 


3s 


add 


1 


nixl 


dac 


1 


mxl 


dispt 


i, 1 


jmp 


• 





^/>i^ - ^ I 



myl, 1 



/ hyperspace routines ^J^u^^ 

/ this routine handles a non-collldlng ship Invisibly 
/ In hyperspace 

hpl, dap hp2 

count 1 raal, hp2 

law hp3 / next step 

dac 1 mil 

law 7 

dac 1 mhl 

random 

scr 9s 

sir 9s 

xct hrl 

add 1 mxi 

dac 1 mxl 

swap 

add 1 myl 

dac 1 myl 

random 

scr 9s 

sir 9s 

xct hr2 

dac 1 mdy 

dlo 1 mdx 

lac ran 

dac 1 mth 

random 

sar 6s 

dac 1 mom 
hp4, lac 1 mth 

sma 

sub (311040 

spa 

add (311040 

dac 1 mth 

xct hd2 

dac 1 mal 
hp2, jmp . 

/ this routine handles a ship breaking out of 
/ hyperspace. 

hp3^ dap hp5 

coiint 1 mal,hp6 
lac 1 mhl 
dac 1 mil 
law 2000 
dac 1 mbl 
count 1 mh2,hp7 
dzm 1 mh2 



hpT, 



^P /^ - 2- ^ 



hp6, 
hp5. 



xct 


hd^. 


dac 


1 mhS 


lac 


1 mh4 


add 


hur 


dac 


i mh4 


random 


lor 


(400000 


add 


1 mh4 


spa 




Jmp 


hp5 


lac 


(mex 400000 


dac 


1 mil 


law 


1 10 


dac 


1 mal 


law 


2000 


dac 


1 mbl 


lac 


i mxl 


dlspt i, 1 myl. 


Jmp 


• 



::^f^cu-'^ 



/ spaceship calc 



ssl. 


dap 


srt 




Jsp 


i cwg 




dio 


sew 




Jmp 


srO 


ss2. 


dap 


srt^ 




Jsp 


i cwg 




rlr 


4s 




dio 


sew 


srO, 






scl. 


lio 


"sew 




elf 


6 cla-opr 




spi 






add 


roaa 




ril 


Is 




spi 






sub 


maa 


mom. 


add 


• 




dac 


i mora 




szs 


10 




Jmp 


sr8 




dzm 


i mora 




ral 


7s 


sr8. 


rll 
spi 


Is 




stf 


6 




lio 


i mfu 




spi 


i 




elf 


6 


mth. 


add 
sma 


• 




sub 


(311040 




spa 






add 


(311040 




dac 


1 rath 




Jda 


£in 




dac ___ 


sn 




dzm bx 




dzm 


by 




szs 


60 




Jmp 


bsg 




lac 


i mxl 




dac 


tl 




raul 


ti 




ser 


Is 




dac 


acx 




cla 






scr 


2s 




dio 


iox 




lac 


i rayl 




dac 


tl 




mul 


tl 




scr 


Is 




dac 


acy 



/ first spaceship 



/ second spaceship 



/control word 
/update angle 



^/^ 



^^ ^ 



cla 

scr 2s 

swap__ 

add lox 

swap 

scl 2s 

add acx 

add acy 

sub str 

sma 1 sza-skp 

Jmp pof 

add str 

varsft 

dac tl 

jda s^qt 

niul tl 

undosft 

scr 9s 

scr 6s 

szs 1 20 / switch 2 for light star 

scr 2s 

sza 

Jmp bsg 

scr Is 

dio tl 

integrate mxl, bx 

Integrate myl, by 
bsg, cla 

sad i mfu 

elf 6 

lac 1 mth 

jda £os 

dac cs 

sar 9 s 

xct sac 

szf i 6 

cla ___ 

add b;^ 

diff^mdy, niyl, (sar 3s 

lac sn 

sar 9 s 

xct sac 

cma 

szf i 6 

cla _ 

add bx 

dlff mdx, mxl,_(sar 3s 
spl, scale £n, 5s, s_sn 
sp2, scale cs, 5s, sen 

lac i mxl 



sub ¥sn 

dac sxl 

sub £sn 

dac stx 

lac i. myl 

add £cn 

dac s/1 

add s_cn 

dac st^ 

scale sn, 9s, ssn 

scale cs, 9s, sen 

lac £sn 

dac £sm 

add ^cn 

dac £sc 

dac £sd 

lac s_sn 

sub s^cn 

dac csn 

cma _ 

dac £sm 

lac £cn 

dac scm 

cla cli-opr 

dpy-4000 
sp5, jmp • 
sq6, loh _ 

ranct sar 9s, sar 4s, src 

llo sew 

ril 2s 

spl i / not blasting 

jmp sq£ ___ / no tail 
sq7, scale sn, 8s, £sn 

scale cs, 8s, sen 

count 1 mfu, st2 

dzm i mfu 

jmp sq9 

st2, yincr sxl^ ¥yl, sub 

dispt i^, syl 

count src,sq7 
sq9, count i mal, sr5 / check if torp tube reloaded 

dzm i mal / prevent count around 
mco, lac . / previous control word 

cma 

szs i 30 

clc _ 

and sew / present control word 

^^1 3s / torpedo bit to bit 

sma 

Jmp sr5 _ /no launch 

count 1 mtr, stl / check if torpedos exhausted 

dzm 1 mtr / prevent count around 

Jmp sr5 
stl, Init srl, mtb / search for unused object 
srl, lac , 

sza i / if unused 

jmp sr2 

index srl, (lac mtb nob, srl 

hit / no space for new objects 

Jmp .-1 



^/^/*^ ' 2, 7 



sr2. 



/ set up torpedo calc 



ss3> 



ss4. 



sr3. 



sr4. 



trf, 
sr6, 

sr7, 

sr5. 



st3> 
srt. 



lac (tcr 

dac i srl 

law nob 

add srl 

dap £s3 

lio stx 

dio • 

add (nob 

dap s_s4 

lio sty 

dio . 

add (nob 

dap sr6 

add (nob 

dap sr7 

add (nob 

dap sr3 

add (nob 

dap £r4 

lac sn 

xct tvl 

cma 

add i mdx 

dac j^ 

lac cs 

xct tvl 

add i mdy 

dac . 

xct rlt 

dac 1 mal 

xct tlf 

dac • 

law 20 

<iap • / length of torp calc, 

co\mt i mh3, st3 / hyperbutton active? 

dzm i |nh3 

lac i mh2 

sza i 

jmp _st3 

lac sew 

cma 

ior i mco 

and (600000 

sza 

jmp st3 

lac i mil 

dac i mhl 

lac (hpl 400000 

dac 1 mil 

xct hdl 

dac i mal 

law 3 

dac 1 mbl 

jmp . 



/ permit torp tubes to cool 
/ life of torpedo 



/ here to handle spaceships dragged into star 

/ spaceship in star 

pof, dzm 1 rodx 
dzm 1 mdy 
szs 50 
jmp pol 

lac (377777 

dac i mxl 

dac 1 myl 

lac 1 mbl 

dac ssn 
count ssn, • 

jmp srt 

pol, lac (mex 400000 / now go bang 

dac i mil 

law i 10 

dac 1 mai 

jmp srt 



/ outline 


IS of spaceships 


oti. 


111131 




mill 




mill 




111163 




311111 




146111 




111114 




700000 


. 5/ 




ot2. 


013113 




113111 




116313 




131111 




161151 




111633 




365114 




700000 



S/^-t-' - J-^ 



. 5/ 



constants 
variables 
. 200/ 



/ space for patches 



mtb. 



/ table of objects and their properties 



^)^aJ - 3 ^ 

Start 4 



stars by prs for s/w 2b 

6077/ 

/stars 1 • 3/13/62, prs. 

decimal 



-^^u^ ^ 3^ 



mark X, Y 



IJ. 



2j, 



2q, 
3J, 



define 

repeat 8, Y=Y+Y 
8192-X Y 
terminate 



mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 

mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 

mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 



1537 
1762 

1990 
2280 
2583 
3431 
4551 
4842 
6747 

1819 
1884 
1910 

1951 
2152 
2230 
3201 
4005 
5975 

46 

362 

490 

566 

621 

764, 

900 

1007 

1243 

1328 

1495 
1496 
1618 
1644 

1723 
1755 
1779 
1817 
1843 
i860 
1868 

1875 
1880 

1887 
1948 
2274 
2460 



371 

-189 

168 

-377 

125 

283 

-242 

448 

196 

143 

-29 

-46 

-221 

-407 

375 

-187 

344 

288 

333 

-244 

338 

-375 
462 
•78 
64 
84 
-230 
-314 
432 
356 
154 
52 

-119 
-371 
-158 

-57 

-474 

-8 

-407 

223 

-136 

480 

-338 

296 
380 



/87 Taur, Aldebaran 
/I9 Orlo, Rlgel 
/58 Orio, Betelgeuze 
/9 CMaJ, Slrius 
/lO CMin, Procyon 
/32 Leon, Regulus 
/67 Virg, spica 
/I6 Boot, Arcturus 
/53 Aqil, Altalr 

/24 Orio, Bellatrlx 

/46 Orio 

/50 Orio 

/53 Orio 

/ 2 cmj 

/24 Gemi 

/30 Hyda, Alphard 

/94 Leon, Denebola 

/55 Ophi 

/88 Pegs, Algenib 

/31 Ceti 

/99 Pise 

/52 Ceti 

/ 6 Arie 

/68 Ceti, Mira 

/86 ceti 

/92 Ceti 

/23 Erid 

/34 Erid 

/74 Taur 

/78 Taur 

/ 1 Orio 

/ 8 Orio 

/67 Erid 
/ 5 Leps 
/20 orio 
/28 orio 
/ 9 Leps 
/34 orio 
/ll Leps 
/39 Orio 
/44 Orio 
/I23 Taur 
/I 4 Leps 

/31 Gemi 
/54 Gemi 



3q, 



mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 
mark 



2470 
2513 
2967 

3016 
3424 
3496 
3668 
3805 
3806 
4124 
4157 
4236 
4304 
4384 
4421 
4606 
4721 

5037 
5186 
5344 
5357 
5373 
5430 

5459 
5513 
5536 
5609 
5641 
5828 
5860 
5984 
6047 
6107 

6159 
6236 

6439 
6490 

6491 
6507 
6602 
6721 
6794 
6862 
6914 
7014 
7318 

7391 
74o4 

7513 

753? 
7644 

7717 
7790 
7849 



193 / 3 uMln 

154 /ll Hyda 

144 /16 Hyda 

393 /30 Leon 

463 /4l Leon, Algleba 

-357 /nu Hyda 

479 /68 Leon 

364 /lO Leon 

-502 / 2 corv 

-387 / 4 Corv 

-363 / 7 Corv 

-21 /29 Vlrg 

90 /43 Vlrg 

262 /47 Vlrg 

-2 /79 Vlrg 

430 / 8 Boot 

-356 / 9 Llbr 

-205 /27 Libr 

153 /24 serp 

358 /28 Serp 

-71 /32 Serp 

-508 / 7 Scor 

-445 / 8 Scor 

-78 / 1 Ophl 

-101 / 2 Ophi 

494 /27 Here 

-236 /I3 Ophi 

-355 /35 Ophi 

330 /64 Here 

-349 /55 Serp 

63 /62 Ophi 

-222 /64 Ophi 

217 /72 Ophl 

-66 /58 Serp 

-483 /37 Sgtr 

312 /I7 Aqil 

-115 /16 Aqil 

-482 /4l Sgtr 

66 /30 Aqil 

236 /50 Aqil 

437 /12 Sgte 

-25 /65 Aqil 

-344 / 9 capr 

324 / 6 Dlph 

-137 /22 Aqar 

214 / 8 Pegs 

-377 /49 capr 

-18 /34 Aqar 

130 /26 Pegs 

-12 /55 Aqar 

235 /42 pSgs 

-372 /76 Aqar 

334 /54 Pegs, mrkah 



^^6A^ - -^ t^ 



start 4 



